home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD022c.dsk / AD.MENU.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  42 lines
  1. 10  REM  AD.MENU
  2. 15  DIM A$(10):D$ =  CHR$(4)
  3. 16 X = 0
  4. 17  IF  PEEK(X) < >20  OR  PEEK(X +2) >9  OR  PEEK(X +1) < >40  THEN  POKE X,20: POKE X +1,40: POKE X +2,1: POKE X +3,1
  5. 18 NP =  PEEK(X +2):NF =  PEEK(X +3)
  6. 19  GOSUB 4000
  7. 20  TEXT : HOME : SPEED= 255
  8. 30  HTAB 14: INVERSE : PRINT " AD.MENU ";: NORMAL : PRINT "  PAGE ";NP
  9. 1000 I = 0
  10. 1010 I = I +1: IF I >9 GOTO 1200
  11. 1020  READ A$(I): IF A$(I) = "END" GOTO 1200
  12. 1030  PRINT : HTAB 01: PRINT I;" = ";A$(I): GOTO 1010
  13. 1200  VTAB 22: INVERSE : PRINT "G=GOBACK  S=START OVER                "
  14. 1210  IF A$(I) < >"END"  THEN  HTAB 25: VTAB 22: PRINT "M=MORE ";
  15. 1211  HTAB 1
  16. 1212  VTAB 23: PRINT "N=READ NEXT AD  ("NP","NF")       ";: HTAB 22: PRINT "                 ";
  17. 1220  NORMAL : VTAB 21: HTAB 1: GET R$: PRINT R$
  18. 1225  IF R$ = "M"  AND A$(I) < >"END"  THEN NP = NP +1:NF = 1: GOTO 20
  19. 1230  IF R$ = "S"  THEN  RESTORE :NP = 1:NF = 1: GOTO 20
  20. 1240  IF R$ = "G"  THEN  POKE X,0: POKE X +1,0: PRINT D$"RUN SOFT.ADS"
  21. 1242  IF R$ = "N"  THEN 2010
  22. 1250 R =  INT( VAL(R$)): IF R >0  AND R <I  THEN NF = R: GOSUB 3000: PRINT D$"RUN AD.";A$(R)
  23. 1260  GOTO 1200
  24. 2000  REM  NEXT
  25. 2010  RESTORE :N = NF +(9 *NP) -9
  26. 2020  FOR I = 1 TO N: READ R$: NEXT 
  27. 2030  IF R$ = "END"  THEN R$ = "G": GOTO 1240
  28. 2040  GOSUB 3000
  29. 2060  PRINT D$"RUN AD.";R$
  30. 3000 NF = NF +1: IF NF >9  THEN NF = 1:NP = NP +1
  31. 3010  POKE X +2,NP: POKE X +3,NF: RETURN 
  32. 4000 K = 9 *(NP -1): IF K = 0  THEN  RETURN 
  33. 4010  FOR L = 1 TO K: READ Z$: NEXT 
  34. 4020  RETURN 
  35. 5000  DATA "ST.ELMO"
  36. 5010  DATA "SCREEN.MASTER"
  37. 5020  DATA "POINT.SPREAD"
  38. 5030  DATA  "DATABIND"
  39. 5040  DATA  "RAINBOW"
  40. 5050  DATA "G MAR"
  41. 5060  DATA "MACHINE.MAGIC"
  42. 9999  DATA "END"